home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / A-B / ActionItems 2.4.cpt / ActionItems 2.4 / background_29178.txt < prev    next >
Text File  |  1989-02-26  |  7KB  |  309 lines
  1. -- background: 29178 from stack: in.4
  2. -- bmap block id: 29202
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Calendar
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   hide bkgnd button "Bracket"
  9. end closeCard
  10.  
  11. on bracketWeek myDate
  12.   --assume we are on the right card
  13.   convert myDate to dateItems
  14.   put item 2 of myDate into it
  15.   if it > 6 then subtract 6 from it
  16.   put "Month" & it into myField
  17.   put ((item 3 of myDate) + 6 - (item 7 of myDate)) DIV 7 into it
  18.   put loc of field myfield into newLoc
  19.   put item 2 of rect of field myField into item 2 of newLoc
  20.   add (it * the textHeight of field myField) + 7 to item 2 of newLoc
  21.   show bkgnd button "bracket" at newLoc
  22. end bracketWeek
  23.  
  24. on enterKey
  25.   set hilite of background button ID 63 to true
  26.   set hilite of background button ID 63 to false
  27.   visual effect iris close
  28.   pop card
  29. end enterKey
  30.  
  31.  
  32. -- part 7 (field)
  33. -- low flags: 01
  34. -- high flags: 0000
  35. -- rect: left=12 top=59 right=85 bottom=103
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 65535
  39. -- font id: 20
  40. -- text size: 18
  41. -- style flags: 0
  42. -- line height: 24
  43. -- part name: Month1Name
  44.  
  45.  
  46. -- part 12 (field)
  47. -- low flags: 01
  48. -- high flags: 0000
  49. -- rect: left=408 top=59 right=84 bottom=501
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 0
  53. -- font id: 20
  54. -- text size: 18
  55. -- style flags: 0
  56. -- line height: 24
  57. -- part name: Month4name
  58.  
  59.  
  60. -- part 14 (field)
  61. -- low flags: 01
  62. -- high flags: 0000
  63. -- rect: left=16 top=143 right=168 bottom=103
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 65535
  67. -- font id: 20
  68. -- text size: 18
  69. -- style flags: 0
  70. -- line height: 24
  71. -- part name: Month2Name
  72.  
  73.  
  74. -- part 15 (field)
  75. -- low flags: 01
  76. -- high flags: 0000
  77. -- rect: left=12 top=227 right=253 bottom=103
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 65535
  81. -- font id: 20
  82. -- text size: 18
  83. -- style flags: 0
  84. -- line height: 24
  85. -- part name: Month3Name
  86.  
  87.  
  88. -- part 16 (field)
  89. -- low flags: 01
  90. -- high flags: 0000
  91. -- rect: left=408 top=143 right=169 bottom=501
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 0
  95. -- font id: 20
  96. -- text size: 18
  97. -- style flags: 0
  98. -- line height: 24
  99. -- part name: Month5Name
  100.  
  101.  
  102. -- part 17 (field)
  103. -- low flags: 01
  104. -- high flags: 0000
  105. -- rect: left=408 top=227 right=253 bottom=502
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 0 / 0
  108. -- text alignment: 0
  109. -- font id: 20
  110. -- text size: 18
  111. -- style flags: 0
  112. -- line height: 24
  113. -- part name: Month6Name
  114.  
  115.  
  116. -- part 57 (button)
  117. -- low flags: 80
  118. -- high flags: 0002
  119. -- rect: left=281 top=104 right=117 bottom=409
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 0 / 0
  122. -- text alignment: 1
  123. -- font id: 0
  124. -- text size: 12
  125. -- style flags: 0
  126. -- line height: 16
  127. -- part name: Bracket
  128. ----- HyperTalk script -----
  129. on mouseUp
  130.   --should be behind all fields, but just in case
  131.   hide bkgnd button "bracket"
  132.   click at the loc of bkgnd button "bracket"
  133. end mouseUp
  134.  
  135.  
  136.  
  137. -- part 50 (button)
  138. -- low flags: 00
  139. -- high flags: 0000
  140. -- rect: left=462 top=25 right=60 bottom=501
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 20098 / 20098
  143. -- text alignment: 1
  144. -- font id: 0
  145. -- text size: 12
  146. -- style flags: 0
  147. -- line height: 16
  148. -- part name: Home
  149. ----- HyperTalk script -----
  150. on mouseUp
  151.   visual effect iris close
  152.   go "home"
  153. end mouseUp
  154.  
  155.  
  156.  
  157. -- part 52 (button)
  158. -- low flags: 00
  159. -- high flags: 0000
  160. -- rect: left=262 top=310 right=337 bottom=299
  161. -- title width / last selected line: 0
  162. -- icon id / first selected line: 1013 / 1013
  163. -- text alignment: 1
  164. -- font id: 0
  165. -- text size: 12
  166. -- style flags: 0
  167. -- line height: 16
  168. -- part name: Next
  169. ----- HyperTalk script -----
  170. on mouseUp
  171.   go to next card
  172. end mouseUp
  173.  
  174.  
  175. -- part 53 (button)
  176. -- low flags: 00
  177. -- high flags: 0000
  178. -- rect: left=211 top=310 right=338 bottom=248
  179. -- title width / last selected line: 0
  180. -- icon id / first selected line: 1014 / 1014
  181. -- text alignment: 1
  182. -- font id: 0
  183. -- text size: 12
  184. -- style flags: 0
  185. -- line height: 16
  186. -- part name: Prev
  187. ----- HyperTalk script -----
  188. on mouseUp
  189.   go to previous card
  190. end mouseUp
  191.  
  192.  
  193. -- part 54 (field)
  194. -- low flags: 01
  195. -- high flags: 0000
  196. -- rect: left=9 top=25 right=58 bottom=85
  197. -- title width / last selected line: 0
  198. -- icon id / first selected line: 0 / 0
  199. -- text alignment: 0
  200. -- font id: 20
  201. -- text size: 24
  202. -- style flags: 0
  203. -- line height: 32
  204. -- part name: Year
  205.  
  206.  
  207. -- part 55 (field)
  208. -- low flags: 01
  209. -- high flags: 0000
  210. -- rect: left=101 top=64 right=143 bottom=230
  211. -- title width / last selected line: 0
  212. -- icon id / first selected line: 0 / 0
  213. -- text alignment: 0
  214. -- font id: 22
  215. -- text size: 10
  216. -- style flags: 0
  217. -- line height: 13
  218. -- part name: Month1
  219.  
  220.  
  221. -- part 56 (field)
  222. -- low flags: 01
  223. -- high flags: 0000
  224. -- rect: left=101 top=148 right=227 bottom=230
  225. -- title width / last selected line: 0
  226. -- icon id / first selected line: 0 / 0
  227. -- text alignment: 0
  228. -- font id: 22
  229. -- text size: 10
  230. -- style flags: 0
  231. -- line height: 13
  232. -- part name: Month2
  233.  
  234.  
  235. -- part 58 (field)
  236. -- low flags: 01
  237. -- high flags: 0000
  238. -- rect: left=101 top=232 right=311 bottom=230
  239. -- title width / last selected line: 0
  240. -- icon id / first selected line: 0 / 0
  241. -- text alignment: 0
  242. -- font id: 22
  243. -- text size: 10
  244. -- style flags: 0
  245. -- line height: 13
  246. -- part name: Month3
  247.  
  248.  
  249. -- part 59 (field)
  250. -- low flags: 01
  251. -- high flags: 0000
  252. -- rect: left=281 top=64 right=143 bottom=410
  253. -- title width / last selected line: 0
  254. -- icon id / first selected line: 0 / 0
  255. -- text alignment: 0
  256. -- font id: 22
  257. -- text size: 10
  258. -- style flags: 0
  259. -- line height: 13
  260. -- part name: Month4
  261.  
  262.  
  263. -- part 60 (field)
  264. -- low flags: 01
  265. -- high flags: 0000
  266. -- rect: left=281 top=148 right=227 bottom=410
  267. -- title width / last selected line: 0
  268. -- icon id / first selected line: 0 / 0
  269. -- text alignment: 0
  270. -- font id: 22
  271. -- text size: 10
  272. -- style flags: 0
  273. -- line height: 13
  274. -- part name: Month5
  275.  
  276.  
  277. -- part 61 (field)
  278. -- low flags: 01
  279. -- high flags: 0000
  280. -- rect: left=281 top=232 right=311 bottom=410
  281. -- title width / last selected line: 0
  282. -- icon id / first selected line: 0 / 0
  283. -- text alignment: 0
  284. -- font id: 22
  285. -- text size: 10
  286. -- style flags: 0
  287. -- line height: 13
  288. -- part name: Month6
  289.  
  290.  
  291. -- part 63 (button)
  292. -- low flags: 00
  293. -- high flags: A003
  294. -- rect: left=440 top=309 right=331 bottom=496
  295. -- title width / last selected line: 0
  296. -- icon id / first selected line: 0 / 0
  297. -- text alignment: 1
  298. -- font id: 0
  299. -- text size: 12
  300. -- style flags: 0
  301. -- line height: 16
  302. -- part name: Return
  303. ----- HyperTalk script -----
  304. on mouseUp
  305.   visual effect iris close
  306.   pop card
  307. end mouseUp
  308.  
  309.